unit unt_cadastro_usuario;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, Mask, StdCtrls;

type
  Tfrm_cadastro_usuario = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    bt_salvar: TSpeedButton;
    bt_voltar: TSpeedButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    ed_nome: TEdit;
    ed_endereco: TEdit;
    ed_bairro: TEdit;
    Label3: TLabel;
    Label5: TLabel;
    ed_complemento: TEdit;
    ed_cep: TMaskEdit;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    ed_tel1: TMaskEdit;
    ed_tel2: TMaskEdit;
    Label8: TLabel;
    Label9: TLabel;
    ed_contato_tel1: TEdit;
    ed_contato_tel2: TEdit;
    ed_cpf: TMaskEdit;
    GroupBox3: TGroupBox;
    Label10: TLabel;
    ed_login: TEdit;
    l: TLabel;
    ed_senha: TEdit;
    procedure bt_voltarClick(Sender: TObject);
    procedure bt_salvarClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_cadastro_usuario: Tfrm_cadastro_usuario;

implementation

{$R *.dfm}
uses
DataModule;

procedure Tfrm_cadastro_usuario.bt_salvarClick(Sender: TObject);
var
  nome : String;
  endereco : String;
  bairro : String;
  complemento : String;
  cep : String;
  tel1 : String;
  tel2 : String;
  contato_tel1 : String;
  contato_tel2 : String;
  cpf : String;
  login : String;
  senha : String;
  sql : String;
begin
  nome := ed_nome.Text;
  endereco := ed_endereco.Text;
  bairro := ed_bairro.Text;
  complemento := ed_complemento.Text;
  cep := ed_cep.Text;
  tel1 := ed_tel1.Text;
  tel2 := ed_tel2.Text;
  contato_tel1 := ed_contato_tel1.Text;
  contato_tel2 := ed_contato_tel2.Text;
  cpf := ed_cpf.Text;
  login := ed_login.Text;
  senha := ed_senha.Text;
  if (login <> '') AND (senha <> '') then
  begin
    DataModule.DataModule1.qryContas.Close;
    sql := 'INSERT INTO Contas';
    sql := sql + ' (login, senha, nome, endereco, complemento, bairro, cep, cpf, telefone1, telefone2, nome_contato1, nome_contato2)';
    sql := sql + ' VALUES ('''+login+''', '''+senha+''', '''+nome+''', '''+endereco+''', '''+complemento+''', '''+bairro+''',';
    sql := sql + ' '''+cep+''', '''+cpf+''', '''+tel1+''', '''+tel2+''', '''+contato_tel1+''', '''+contato_tel2+''')';
    DataModule.DataModule1.qryContas.SQL.Text := sql;
    DataModule.DataModule1.qryContas.ExecSQL;
    Application.MessageBox('Usuario cadastrado ','',MB_ICONINFORMATION);
    close;
  end;
end;

procedure Tfrm_cadastro_usuario.bt_voltarClick(Sender: TObject);
begin
  close;
end;

procedure Tfrm_cadastro_usuario.FormCreate(Sender: TObject);
begin
  ed_nome.Text := '';
  ed_endereco.Text := '';
  ed_bairro.Text := '';
  ed_complemento.Text := '';
  ed_cep.Text := '';
  ed_tel1.Text := '';
  ed_tel2.Text := '';
  ed_contato_tel1.Text := '';
  ed_contato_tel2.Text := '';
  ed_cpf.Text := '';
  ed_login.Text := '';
  ed_senha.Text := '';

end;

end.
